home *** CD-ROM | disk | FTP | other *** search
/ Wonky Flux Batch 2019 02 / Wonky_Flux_Batch_2019-02.zip / Wonky Flux Batch 2019-02 / 090 - CAD Draw.dsk / APPLESOFT.S next >
Text File  |  2019-02-17  |  3KB  |  154 lines
  1. ********************************
  2. *                              *
  3. *          Applesoft           *
  4. *                              *
  5. * Applesoft is a copyrighted   *
  6. * program of Apple Computer,   *
  7. * Inc. and Microsoft, Inc.     *
  8. *                              *
  9. * This source listing is for   *
  10. * use only by the rightful     *
  11. * owner of the copy of         *
  12. * Applesoft from which it was  *
  13. * generated and may not be     *
  14. * published or distributed to  *
  15. * others, whether or not for   *
  16. * commercial purposes.         *
  17. *------------------------------*
  18. *      Revision:  6/10/83      *
  19. *------------------------------*
  20. *  Put SYM $8000 to assemble.  *
  21. *                              *
  22. ********************************
  23.  
  24.           ERR ($75)      ;Check that SYM is set
  25.           ERR ($76)-$80  ; to $8000
  26.  
  27. SAVEOBJ   KBD
  28.           TR             ;3 bytes/line printout
  29.           EXP OFF        ;Do not print macro expansion
  30.  
  31.           ORG $D000
  32.  
  33.           DO 0
  34.  
  35. INCR      MAC
  36.           INC ]1
  37.           BNE NI
  38.           INC ]1+1
  39. NI        <<<
  40.  
  41. DECR      MAC
  42.           LDX ]1
  43.           BNE ND
  44.           DEC ]1+1
  45. ND        DEC ]1
  46.           <<<
  47.  
  48. CMPR      MAC
  49.           LDA ]1
  50.           CMP ]2
  51.           LDA ]1+1
  52.           SBC ]2+1
  53.           <<<
  54.  
  55. TR        MAC
  56.           LDA ]1
  57.           STA ]2
  58.           <<<
  59.  
  60. TRDB      MAC
  61.           >>> TR.]1      ;]2
  62.           >>> TR.]1+1    ;]2+1
  63.           <<<
  64.  
  65. TRX       MAC
  66.           LDX ]1
  67.           STX ]2
  68.           LDX ]1+1
  69.           STX ]2+1
  70.           <<<
  71.  
  72. TRAX      MAC
  73.           LDA ]1
  74.           LDX ]1+1
  75.           STA ]2
  76.           STX ]2+1
  77.           <<<
  78.  
  79. TRAY      MAC
  80.           LDA ]1
  81.           LDY ]1+1
  82.           STA ]2
  83.           STY ]2+1
  84.           <<<
  85.  
  86. TRXY      MAC
  87.           LDX ]1
  88.           LDY ]1+1
  89.           STX ]2
  90.           STY ]2+1
  91.           <<<
  92.  
  93. AD        MAC
  94.           LDA ]1
  95.           ADC ]2
  96.           STA ]3
  97.           <<<
  98.  
  99. ADD       MAC
  100.           CLC
  101.           >>> AD.]1      ;]2;]3
  102.           >>> AD.]1+1    ;]2+1;]3+1
  103.           <<<
  104.  
  105. SB        MAC
  106.           LDA ]1
  107.           SBC ]2
  108.           STA ]3
  109.           <<<
  110.  
  111. SUB       MAC
  112.           SEC
  113.           >>> SB.]1      ;]2;]3
  114.           >>> SB.]1+1    ;]2+1;]3+1
  115.           <<<
  116.  
  117. BUMP      MAC
  118.           ADC ]1
  119.           STA ]1
  120.           BCC BPD
  121.           INC ]1+1
  122. BPD       <<<
  123.  
  124. PUSH      MAC
  125.           LDA ]1+1
  126.           PHA
  127.           LDA ]1
  128.           PHA
  129.           <<<
  130.  
  131. PULL      MAC
  132.           PLA
  133.           STA ]1
  134.           PLA
  135.           STA ]1+1
  136.           <<<
  137.  
  138. NEG       MAC
  139.           LDA ]1
  140.           EOR #$FF
  141.           STA ]1
  142.           <<<
  143.  
  144.           FIN
  145.  
  146.           DO SAVEOBJ
  147.           DSK APPLESOFT.OBJ
  148.           FIN
  149.  
  150.           PUT APSOFT I
  151.           PUT APSOFT II
  152.           PUT APSOFT III
  153.           PUT APSOFT IV
  154.